home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / rjkpro_1 / plasma2oo.amos / plasma2oo.amosSourceCode
Encoding:
AMOS Source Code  |  1997-04-02  |  1.3 KB  |  60 lines
  1. '----------------------------------------------------
  2. '               plasma v2.1 re-edited
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished o2/o4/1997 13:31:33
  10. '----------------------------------------------------  
  11.  
  12. _PLASMA_200
  13.  
  14. Procedure _PLASMA_200
  15.    
  16.    Screen Open 0,800,360,32,Lowres
  17.    Screen Display 0,120,,352,256
  18.    Flash Off 
  19.    Curs Off 
  20.    Hide 
  21.    Cls 0
  22.    
  23.    Shift Up 1,0,31,1
  24.    
  25.    Palette $FFF,$FEE,$FDD,$FCC,$FBB,$FAA,$F99,$F88,$F77,$F66,$F55,$F44,$F54,$F64,$F74,$F84,$F94,$FA4,$FB4,$FC5,$FD5,$FE6,$FF6,$FF7,$FF7,$FF8,$FF8,$FF9,$FFA,$FFB,$FFD,$FFE
  26.    
  27.    Degree 
  28.    
  29.    Screen Hide 
  30.    
  31.    For A=0 To 6
  32.       For B=0 To 31
  33.          Ink 4+B
  34.          Bar 0,B*2+A*64 To 800,1+B*2+A*64
  35.       Next 
  36.    Next 
  37.    
  38.    For X=0 To 800
  39.       Screen Copy 0,X,0,X+1,360 To 0,X,Sin(_DEG#)*16
  40.       _DEG#=_DEG#+1.5
  41.    Next 
  42.    
  43.    For Y=0 To 360
  44.       Screen Copy 0,0,Y,800,Y+1 To 0,Sin(_DEG#)*(10+(Y/4)),Y
  45.       _DEG#=_DEG#+1.3
  46.    Next 
  47.    
  48.    Screen Show 0
  49.    
  50.    Repeat 
  51.       
  52.       Add _XOFFSET,16,128 To 352
  53.       Screen Offset 0,_XOFFSET,76
  54.       Wait Vbl 
  55.       
  56.    Until Mouse Key<>0
  57.    
  58.    Screen Close 0
  59.    
  60. End Proc